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SERLe St LIT els Meee 
OBJECT MODULE PLACED 
COMPILER INVOKED BY: 


STITLEC’LLNA Transport Control Layer 


V2.0 COMPILATION 


LLNA Transvort Control Layer Transmit Process 


OF MODULE TP 
IN sFU:sTP.O8J 


PLM86.84 


Transmit Process 


SCOMPACT DEBUG NOCOND 


x*x* WARNING 10 IN 1 ¢ 


LINE 2): RESPECIFIED PRIMARY CONTROL, IGNORED 


SSETCmipform) 


SIF TT? 
= ag Ba = 


SINCLUDE CeFTscpyrt.dcp) 


SENDIF 


1 tee-007 
SIF 7 
SELSE 
SINCLUD 
= fe TCL 
ec 1 = DECLARE 


/* Intel Corporation Propristary Information. 
This listing is supplied under the terms of a 
license aAgrement with Intel Corporaton and 

may not be copied nor disclosed except in 
accordance with the terms of that agreement. * 


{x SC6-213 a eae i lg 


George 2 


0 


/ 


4/15/82 


sF1:TP.P836 OPTIMIZECS) XREF SETCFI) DEBUG 


04/15/82 °) 


x/ 


/x This is TCL’s Transmit Process and supporting routines. 
segments (The 


TP is the only thing in TCL that can send 
Raceive Process, RP, causes 
to be sent by sending a short message Can Internal 


segments (such as SYNACK or ACK) 


Request 


Block, or I8B) to TP to request that the appropriates segment 


be sant. The Interface Process, IPs, causes 
in the same way. */ 
/x 


modified 


s 


03/10/82 to fix problem in TPSPROC. 


segments to be sent 


When the AYTimer 


went offs the routine that sets it lets RP run which can also 


set ity resulting in a twice set ACB 
*/ 
a Cre Te TCeGsi. ing? 
Global Literals 
maxSsend3seg LITERALLY “O7H’, /* max no 


of 


[KKK KKK KK KKK KK KKK KEK KEK / 
/x*x Global Literals x**/ 
[RR KKKKKK KK KKK KKKK KK / 


04/15/82 */ 


back-to-back segs that 


04/23/82 


one 


connection x*/ 


DAGE 


1 


PLANE &, CON Pike 


tclsheaderstlen 


dllSheadertlen 
minsSpkt3len 


maxssegSdataSlenSlit LITERALLY 


. teltprotocolscode 


tcltprotocolscodetrev LITERALLY 


tclSmipS$port 
logtrbsminsport 
mipsechosport 


tcl$version$slit 
definetsidslit 
onthdStcliechos$port 
true 

Talse 

forever 


TimeoutSincrease2ista 


Timeout3steadyistate 


/* Some variables x/ 


leidSvector (x) 
locSnat 
LocShost(3) 
max3segtdatatilen 
max$window3size 
curSedbt3index 
curScid 
tot$pktstretran 
totSpkts3rej 
aytStimer3dw 
aytscount3smax 


J 
tpStimestamp 
SIF dhg 
SENDIF 


irb_ type 


DECLARE 
timerSrunning 
timersexpired 
timerScleared 


LLNG Tronsport Control Layer 


Transmit Process 04/15/82 04/23/82 


/*x* can send at a time x/ 


LITERALLY “20°, /* bytes in tcl header */ 
/x ETHERNET-SPECIFIC VALUES x/ 
LITERALLY "14°, /x bytes in dll header x«/ 


LITERALLY 


LITERALLY 


“46%, /* minimum total pkt lan - bytes */ 

°41480°, /* (1480) max no. of client bytes in seg */ 
“SO01H’,-/*x OLLCONNECT user type field */ 

“0150H’,/* packet header user type field */ 


/* Mise values */ 


EIT ZRALLY "4°, /x* mip port for IPSINSMBX x*/ 

LITERALLY noo /* debugging: mip port for logging *«/ 
LITERALLY any sie /x mip port of on-bd tcl echo server */ 
LITERALLY “401H’, /* Version of this TCL for seg header x*/ 
LITERALLY es er /x default Network ID: "this network" x*/ 
LATERALLY “7, /x TCL port of on-board tcl echo server */ 
LITERALLY “OFFH’, 

LITERALLY "0°, 

EI TERALLY “WHILE true’, 


te LITERALLY °17, 


LITERALLY °0’%; 


/* In this state the retransmission timeout 
is rapidly increased x/ 

/x In this state the timeout is 

Slowly decreased. This should not be 

changed, it is the initial state since 

a cdb is intialised to zero */ 


WORD EXTERNAL, 
WORD EXTERNAL, 
WORD EXTERNAL, 
WORD EXTERNAL, 
BY TE EXTERNAL, Jk in IP x/ 
BYTE-, 
WORD, 
WORD. EXTERNAL, 
WORD EXTERNAL, 
DWORD EXTERNAL, 
WORD EXTERNAL? 
WORD, /x 00 index x/ 
DWORD-, /* timestamp temp storage *x/ 
BYTE? /* nonwmbased copy of currant irhb.type */ 
/* Definitions of the "flag" field */ 
/* in KAOS alarm control blocks */ 
LITERALLY °0’, /* alarm was SET, has not expired */ 
LITERALLY “1°, /x alarm was SET, and has expired */ 
LITERALLY "2°; /* alarm has been CLEARED or CREATED x/ 


PAGE 
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on 


— 


SLF T7 
PoUCe 
SSAVE NCLIST INCLUDECS FI: TCLMBX.INC) 


DECLARE 

sp$p POINTER, /* Send Packet */ 

spo | WORD ATC2spp)- 

sp BASED spSo /x Based on offset for code size and sped */ 
tr 


Se 
NCLUDEC:3F1:TCLSEG.INC) 
LRKKKKKKRKEKKK KKK KKKKKEK/ 


[xxx Segment Format *x*/ 
[RR RK RK KR RK / 


STRUCTURE (¢ /x 11/15/81 */ 
/* Offset Chex/ dec) x*/ 
kaossSmsgshdr POINTER, /e*¥ OO = OT ptr to link seg bufs */ 
bufsdlen WORD, /x 4&4 = S&T # of bytes Cdest addr thru last data 
/x DATA LINK FIELDS x/ 
dlédest¢2) WORD, /x 6 = 6T data link destination */ 
diSsource(3) WORD, /x C = 12T data link source */ 
distype WORD, /* 12 = 18T) */ . 
/* TRANSPORT CONTROL FIELDS x/ 
tel3Sversion WORD, /x* 14 = 20t Version number of sanding TCL x/ 
dest3port WORD, /* 16 = 22T x/ 
sourceSport WORD, /x 18° = 24T */ 
dest3cid WORD, /* 1A = 26T */ 
source$cid WORD, /* 1€ = 28T */ 
seg$seqtno WORD, f/x TE = 30T x/ 
segSackino WORD, /x 20 =-32T x/ 
'segsdataslen WORD, /x* 22 = 34T # segment data bytes:for pad x/ 
etl WORD, /* 24 = 36T subfields mapped out as: 
Crasarved) . bit, 8000H- 
cks bit, 4000H 
ayt bit, 2000H 
acl bit, | 1000H 
syn bit, Q800H 
fin bity 0400H 
eom bit, 0200H 
ret bit, Q100H 
Craserved) bit, 0040H 
credit 6 bits CO3FH xf 
checksum WORD, /x 26 = 38T */ 
segédata(1) 38YTE) /* 28 = 3AT segment data bytes, Length unknown */ 
SENDIF 
y 
sp3Sarray BASED spSp (CtelSheeder$len) BYTE; 
Sir *7 
SELSE 


SINCLUDE C:F1:TCLSCF.INC) 
[KR KKK KR KK KR RK RK RK Ke | 
/x Segment Control Field */ 
[RRR RK ERK RIK KK KA KR KKK KR / 
/x TCL Segment Control Field Oefinitions 11/15/81 */ 
DECLARE 
eksSmask LITERALLY “4000H’, /x declared for future use */ 


byte) */ 


‘A 
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aytSmask 
ack mask 
syn3smask 
finsmask 
2zomsmasic 
synack3mask 
finackSmask 
eomsack3Smask 
eomsfinsmask 
rstimask 
cetltbitstmask 
rstSack 3mask 
credit3mask 

SENDIF 

DECLARE 
curScdb3p 


CcurSedb3o0, curSedb$b) 


LLNA Transport Control Layer 


BereRaL ly 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITER aAtly 
LITERALLY 


POINTER, 


c BASED curscdb3p 


SIF f7? 

SELSE 

BSAVE NOLIST INCLUDE 
virbs3p 


Transmit Process 


*2000H’, 
°41000H’, 
*0800H’, 
“0400H’, 
°0200H‘, 
“41800H’, 
“1400H’%, 
°1200H’, 
“0600H’, 
“0100H’, 
“41FOOQH’, 
°1100H’%, 
“OOSFH’; 


WORD AT C&cursedbS$p), 


C:F1:TCLCdDa.INC) 


POINTER, 


Cirbto, irbdb) WORD ATC8irbtp)-, 


irb. 3&S'0 arbtp 
SIF f7 
SELSE 
SSAVE NOLIST INCLUDE 


4 
lirb 3ASED irbSp 
f7 


Se 
VE NOLIST INCLUDE 
y 
ach BASED irbSp 
Le £7 
cL OE 
SAVE NOLIST INCLUCE 
f 
SIF 7 
SELSE 
SSAVE NOLIST INCLUDE 
pe ame od 
SELSE 
SSAVE NOLIST INCLUDE 


c 
GC NOLES? INCUUDE 


Cerise TCLiIrR38.INC) 


C:FIT:TLIRS.INC) 


/* The alarm control 


C2F1:TCLACS.INC) 


CSPLETCOIRG.INC) 


CoFTSTCELRSC.s INC) 


Pte CLCS Ds ENC) 


/* External Procedure declarations x/ 


setupsedi: PROCEDURE 


Cindex, cdb3p$0) EXTERNAL; 


04/15/82 


LKKEKREKKE KKK KKK KK KEK / 


/xxx Conn Data Base *x/ 
LEK RKKKKRKKRKKKEKK KK KKKKK/ 


TREK KKKKKEKK KK KKK KKK / 
[xkxKexxe TRB ka RR KKK] 
[RK KKK KKKKKKKKKKKK/ 


block */ 


fx in IP x/ 


04/23/82 


mm 


PL/M-~86 COMPILER 


hw 
Ovwoc 


PO RO PO 
GbR = 


Oe AS 


nmr 


hm PR 


‘iLNA Transnort Control Layer Transmit Process 


DECLARE index 3YTEs 
END setupsedh, 


edbSp3$o WORD, 


deletesedb: PROCEDURE (cdbtindax, cdb3p, rtnscode) EXTE 
DECLARE (cdb$index, rtnicode) BYTE, 
cdb3p POINTER, 
END deletetcdh, 


gtamodsé4k: PROCEDURECn,-m) BYTE EXTERNAL, 
OECLARE (n-m) WORD; 
END gtSmodé4k, 


geSmodé4k: PROCEDURE(n-m) BYTE EXTERNAL, 
DECLARES (Cn-m) WORD, 
END geSmod64k, 


maxSmod64k: PROCEDURECns,m) WORD EXTERNAL, 
DECLARE (€n-m) WORD, 
END maxSmodS64k; 


min: PROCEDURE(n-m) WORD EXTERNAL, 
DECLARE C€n-m) WORD, 
END mins 


tryttiosS$deletescdh: PROCEDURE CcdbSindex, cdbSp, respScode) EXTERNAL, 


DECLARE cdb3p POINTER, 
CedbSindaxvreasptcode) BYTE; 
ENO tryS$tosSdeletescdh-, 


search _lcidsvector: PROCEOURECtarget) WORD EXTERNAL-s 
DECLARE target WORD, 
END search_IlIcidSvector, 


max: PROCEDURE(n-m) WORD EXTERNAL; 
DECLARE Cnv-m) WORD, 
END max, 


chk3Ssumscale: PROCEDURE Cseagfo) WORD EXTERNAL, 
DECLARE sag3so0 WORD, 
END chk3sum$calc, 


stky_inecr: PROCEOQURE CwdSp) EXTERNAL, /* 
DECLARE wd3p POINTER; 
END stky_incr, 


SIF f7 
SELSE 
SSAVE NOLIST INCLUDE (:F1:KAOS.DCP) 


SIF f7 
SELSE 
SSAVE NOLIST INCLUDE (:F1:MIP.DCP) 


04/15/82 04/23/82 


RNALs TH: IM LP eS 


/*x In RP x/ 


/*x in RP x/ 


/e in RP? */ 


/x in RP x/ 


/x in IP x/ 


/* in TCOM */ 


/x in TCOM x/ 


in tcom x*/ 


PAGE 
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SeLSe 

SSAVE NOLIST INCLUDE CsF1s0LL.DCP) 
Le td 

PES Ee 

SAVE NOLIST INCLUDE (:F1:THACF.INC) 


[RK KKK KHER KKK KKK KKK K KE / 

/**x clrSsetSdatasalarm **/ 

LP KRKEK KK KEK KER KR RIK RI ek / 
clirssetS$dataSalarm: PROCEDURE Ccsdaitype), 


/x* code-saver routine to clear and set the data 
. alarm */ 
DECLARE csdastype BYTE, 


CALL caSclearSsalarm(ac.datasalarm$ch); 


eedatasachSirbStype = csdastype,s 
CALL cq$setS$alarm(ac.cdatasSalarmsch, .toSmbx-, 
high(c.retranStoSdw), 
low (c.retranstogdw))-; 
END clrSsetS$datasalarm, 


[KKK EKKKERK KKK KKK KEKE / 
{xx checkSaytitimer **/ 
[kK RK KK KR KR KK RK RR RK KKK / 
checkSayt$timer: PROCEDURECcat$cdh$p) PUBLIC, 
/* called to check if there are any R3s on the 
transmit queue, and to start the Are-You~There 
timer if note. */ 


DECLARE 
cattdcdbS$p POINTER, /x ptr to the cdb of interest */ 
cat3e BASED cat3cdhip 

SIF f7 

SELSE 


SSAVE NOLITST INCLUGE CeFleTCLcos.~INne) 
v 
/x called when we want to sea if the ayt timer is 
needed because the xmit list is empty. It is 
always ok to zero the count and clear the timer. */ 
cat$c.aytscount = Q, 
CALL cqScleartalarm(acatSec.ctl$alarmich), 
LF Catse.cbhtqsharsent. = O THEN 
DO, /* note: all conns have same ayt timeout for now */ 
~catSc.ctl3ach$irbtype = irbSctl$timeoutSmask OR irbSaytStimer, 
CALL caSset3Salarm(fcat$c.ctlialarmich, .ztp3mbx, 
) highCayt3timerSduw), 
low CaytS$timerSdw)); 
ENO; 
END checkSaytStimer; 
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162 1 gets 
163 2 
164 c 
165 2 
166 2 ENO 
167 1 get: 
168 2 DECL 


ee a 


ILNA Transport Control Layer 


txSbufs PROCEOURE, 


CALL 


CALL 


getstx3buf-, 


PROCEDURE BYTEsz 


ARE 
targets3seg 
targetSoffset 
bikSindex 
cum_rb bytes 
bikSoffset 
bikSrem$bytes 
segsoffseat 
segsremsbytes 
copylen 
bikSdatasp 


blikSdata 3ASED blk$data$p (1) BYTE- 


getirbssp 


getirbs 38ASED ge 
¢ 


—~J oO 


cafsignal(.schedsSlock);, 
sp3p = casreceivaCcasdll3txtfreesmbx); 
eqSwaitsem(.schedSlock)-, 
/x (Changed 


\ 


Transmit Process 04/15/8282 04/23/82 


[KKK KR RK RK KK KK / 
[xe getstxSbuf *«*/ 
[KKK KKK RK KR KK KK / 


/x coda-saver routine to get a frees transmit */ 
/x buffer from data link (Cor whoever) x/ 


/x release the cdb lock while waiting for buf */ 


/* rewrcapture the lock x«/ 


on 9/12 to try to correct excessive */ 


/*x number of empty acks being sent ) x/ 


[KKK KKK KKK / 
Lxkxx Gat Kee*/ 
LEK KKK KKK / 


/x* The Get routine accepts a segmant number as 4 


parameter 


and either returns false if that packet 


# is not available or returns true if it is Cand 


also gsits 


a transmit pkt buf and copies the data 


from the host into the pkt buffer. x«/ 


/* This version of GET supports the full-up fragmentation 
scheme: the buffers in Send Ros will be fragmented as, 
necessary to fit them in packets, regardless of the 

or number of buffers. Zeromlength bik are ignored, 
caus? no errors or side-effects. Zero~length buffers 


size 


anc! 


Ci.e 


ev a Send 


with no bliks, or all blks of zero length, 


and no other sequence-consuming controls such as EOM or FIN) 


are 


also iaqnored and do not cause any packet to be sent. 


A zeromlength R3 consumes no sequence number, and will 
remain on the xmit queue until a nonzero successor R3 


has 


Send 


will 
See 


WORD, 
WORD, 
WORD, 
WORD+, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
POINTER, 


POINTER, 


tirbsSp 


also thea 


been sant 


and acknowledged. Exception: a zeror-length 


R383 submittad when the xmit queue is already empty 


Simply be 


/x 
/x 
[x 
/x* 
/x 
/x 
/x 
3 
/* 


returned immediately, marked "OK". 


try$tos$deleteScdb in IP. x/ 


sequence number of the target segment requested: */ 

Offset from RB of Ist byte of target segment */ 

number of the current block */ 

total client bytes so far in this RB, as of last block */ 
offset of current byte w/in this block */ 

remaining bytes in this block */ 

offset of current byte in xmit seg buffer */ 

remaining space avail in xmit seg buffer '*/ 

bytes being copied to xmit seg buf this iteration */ 


/x client data vector in current blk */ 
[KKKRKKKKKK KKK KKK KKK KKK] 


[xxx RBS Format x*xx/ 
LKR KKEKKEKKK KKK KKK KK / 
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Ul 


Nh 


Al 


A 


Wl 
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Al Gd 


NOLIST INCLUDE “C2FT2TCLRSS cINC) 


<M 


ye AM Ato wo NN Mein 


etSrbvsp POINTER, 
tirbv BASED gettrbvsp (1) 


NOLIST INCLUDE CsFI:TCLR8V.INC) 


/* Routine used by Get x/ 


noSmore$biks: PROCEDURE 3YTE; 
. /x routine to set up the next block in this 
RB for use in the copy loop. Raturns trua 
if there are no more non-zero blocks in this 


RB. */ 
nmbstops: 
blkSindex = blksSindax + 17 /* bump the current block index */ 
IF blkSindex >= get $rbs.num$blks THEN RETURNC true); /x quit since thers are no more blocks x/ 
TF getfrbv(blkSindex).blkSlen = 0 THEN GOTO nmbS$top, /*x ignore zeronmlength blks *x/ 
/x found next non-zero bik--set up ptrs */ 
blk3remS$bytes = getSrbv(bikSindex).blkSlen, 
bliksoffset = O;- 
SIF mipform 
blkSdata$p = caSmipfacetSaddress( getSrbvblkfindex).blk3ptr)- 
SELSE 
SENDIF 


RETURNC false); 


END noSmoredSblks, 


setSupt3seqSctl3fields: PROCEDURE, 
/x This routine sets up the ctl, segseqno,s x/ 
/* segdatalen, and buflen fields of a x/ 
/x transmit segment buffer, it is called */ 
/x within Get if the xmit seg buf is full */ 
/* or there is no more data in the current x/ 
/x Request Slock. */ 
/x set basic control field x/ 

spectl = ackSmask OR minCmaxSwindousSsize, camyScredit), 

/x if we have copied last byte Cif any) of 
the RB, then check to see if other controls 
should be inserted. */ 


TIF targettoffset = getirbs.buftlen THEN /* we have passed last */ 
DO; /* byte (test doesn’t chk for last blk because */ 
/x there might be trailing zero blks) */ 
IF get$rbs.req = sendSeomtreq THEN spo.ctl = spectl OR csomimask,; 
TF get$rbs.eraq = close$req THEN sp.ctl = spectl OR finSmask-, 


END; 
/* now fill in other seg header fields */ 
t3seq- 
Soffset, {x number of client data bytes */ 
/x tell DLL the size of the buffer ~~ note */ 
/* padding to accomodate Ethernat minimum */ 
/* packet length. */ 


ge 
293 


PAS 


Mm 
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spebhbufslen = dlltheaderslan + 
max (min3pktdlen, telSheaderS$len + segtoffset)s 
RETURN; 


END setSunpSsegSctléfields, 


/x main Line code for Gat x/ 


IF c.echtgqSbufsent = 0 THEN RETURN (Talse); /* There’s no data to sand */ 
getSrbsto = c.cbhtgqShdr, /* set up base on first RB x/ 


/x chk if target seq is too olds not in queue */ 
target$seg = c.anext3transmit, /x get always looks for this Cimplied param) */ 
IF gtSmodé64kCgetirbs.firstsseq,target3seg) THEN call Cahaltandcatchfire(hacftqsaqds /% 4/15/82 x/ 


/x first, find the RB containing the first */ 
/x byte of the target seg */ 
DO WHILE ( (NOT get$rbs.contents) OR gtSmodé64k(target$seg, getgrbs.last$seq) ), 
IF (CgetirbsSp := getSrbs.zlink) = 0 THEN return(false),; 


END; 
/* we have the RB containing start of target */ 
/*x* segments now find the block x/ 

getorbv3p = dgetsrbs.vb-, : /* set up variable part of RB addressing *x/ 


/x first compute the byte offset of target */ 
/x within R88 for comparison to each blk */ 


targetSoffset = (targetiseg - get3rbs.first$seq) * maxsseg3sdataslen, 
blkSindex,blkSrem$bytes-blk3offset = O07 © 
cum_rbobytes = Q, /x total bytes encountered in this R38, */ 


/x as of the last blk */ 


/x Now, find the right. block: if there */ 
/x* is any client data in this R8,s search x/ 
/x thru its blks until we find the blk x/ 
/* containing the start of the target */ 

/*x sag (since contents is true, there is */ 
/x something to sends but it may be just */ 
/* an EOM or FIN with no client data). */ 

IF getsrbsebufslen <> O THEN 


DO; 
DO WHILE (cum_lrblbytes + get3rbvCblkSindex).»blkSlen) <= target3Soffset? 
cum orb bytes = cum _rb_bytes + getErbvCblkSindex) .blk3len, 
blkGindex = blkSindex + 1, 
IF bikSindex >= get$rbs.numSblks THEN /* Error : target must be in this RB! */ 


CALL cqashaltSand$catch3fireChact$tp$getschk) 7 
END, 
/x we now know which RB and which block */ 
/*x within that R3B holds the first byte of */ 
/x the target segment -- now compute the */ 
/x offset within the block of that byts */ 


/* NOTE: some of this ought to be coinmon with the 
Nommorenmbliks code ! */ 


blkSoffset = targetSoffset - cum prb_bytes;, = 
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20 3 bikSremfbytes = getirbv(blkSindex) .blkilen - blik3offset-, /* bytes remaining in blk x*/ 
SIF mipform 
216 3 blkddatatp = cqimiptgettaddress( get3rbv(blktindex) .blkSptr); /x address of start of blk */ 
SELSE 
SCNDIF 
219 3 END; 
/x* now get a transmit buffer and fill it x/ 
/* in with some data */ 
220 2 CALL get3tx$buts 
/* 
check if we received an ack for this packet when we released the lock. 
if we did, then return the buffer and exit 
xf 
221 2 if targettseg <> c.unext$transmit then 
222 2 dos 
223 3 call casend(cqdlistx3freatnbx,sptp)-, 
224 5 return CFALSE), 
225 5 end; 
226 2 c.ssendflag = false; /x clr flag after re~aquiring semaphore since we x/ 
/* will copy seq/ack state into xmit seg now, and x/ 
/x a new sendflag from another process when it next */ 
/x* gains control should cause a new pkt to go out. */ 
27 2 segsramSbytes = maxSsegtdataslen, /x* NOTE ETHERNET SPECIFIC PKT LENGTH x/ 
228 2 sagsotfsat = Q; 
/x Now go into the copy loop, trying to fill */ 
/x the seg buffer with cliant data, using */ 
/* multiple blks if necessary */ 
229 2 DO forever; 
/* on each time thru the loops, we copy the 
lesser of the number of bytes still available 
in the current blocks and the amount of space 
left in the segment buffer. If we don’t fill 
the seg from one blk, try the next ones too. */ 
230 3 copylen = min ¢€ blkSramSbytes, segtremShytes); 
/* copy in word mode for speed */ 
/* NOTE: set bus priority switch here! */ | 
/x if odd # of bytes, we will copy on next 
higher word boundary to avaoid odd-byte fixup. 
This is guaranteed to be ok as long as either: 
(1) there is at least one junk byte at xmit 
buf end (there are 4 bytes now), ors (2) the 
max seg data len is even. x/ 
/x note divide by two using shiftrcright for speed x/ 
231 3 CALL MOVWCAblkSdataCbikSoffset), dsp.segSdatalsegsoffset), SHRCcopylent1-1) ); 
/x* NOTE: clear bus priority switch here! */ 
/* now pick up the odd byte, if there was one x*/ 
/*IF copylen THEN */ | 
/xspeseagsdata(segsoffsettcopylen-1) = blkSdata(blkSoffsettcopylen-1)7x*/ 
/x update all the offsets */ 
232 3 segsoftseat = copylen + segtoffset, 
25:5 3 blk3offset = copylen + blk3offset, 
234 3 seggrem$bytes = segtremSbytes - copylen, 
285 3 blk3rem3bytas = blkfSramfbyteas - copylen; 
236 3 targetboffset = targetSoffset + copylen; /* make this.track for later use x*/ 


/* Now see if we are done with the seg */ 
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IF segtremibytes = 0 THEN 
20-7 /x no more space in xmit buf so fill */ 
CALL setSupssegictlifields, /* fill in the control fields and quit */ 
RETURN Ctrue) 


. 
? 


END, 
IF notmoreSblks THEN 
DO; /* thaere’s seq buffer space, but we have */ 
CALL setSupSsagsctl3fields;, /*x emptied this R38, and current frag policy */ 
RETURNC true), /x doesn’t cross RB boundaries on sends so 'x/ 
=NO; /x fill in ctl fields and exit */ 
ENC; {x of do forever loop x*/ 
END gets 
[KKK KKKKKKAKEK 
[xxx send$packet ew 
[KKK KK KKK KKK KK KK RR KKK / 
sendSpacket: PROCEDURE, 
/x a code~saver routine to compute 
the segment checksum, send it via 
Data Link, and log the evant x/ 
SIF <bg¢ 
SENDIF 
specdlsitype = tcel$protocolScodesSrevse /* Insert TCL’s Ethernet type code x/ 
/* (I shouldn’t be doing this, either) x/ 
sp.checksum = chk3sumScalc(€spto), /* put in the checksum */ 
STF dbg 
SENDIF 
SIF log 
SENDIF 
/*x release the cdb lock while sending so that */ 
CALL cqS$signal(.sched$Slock); /* RP will not be blocked if this is a looprback send */ 
CALL cqSdllstxtsend(sp$o); /x Sand the segment */ 
CALL caSwaitsam(.sched3lock); /*x re-capture the lock x*/ 
SIF dbg 
SENDIF 
/x when we waited on the tx buf */ 
END sandfnacket, 
Lek K KKK KR KK RK KK KKK KKK / 
/*k satupSsegtheader x*/ 
[RRR KKIKKEKK KKK KKK KK / 
setupSsegtheader: PROCEDURE; 
so.dltdest(O) = c.remShost (0), 
soedlédest(1) = c.ramShost(1); 
‘sp.dl3dest(2) = c.eremfhost(2)3 
/* Now do transport fields x«/ 
SpatclSversion = teliversionslit-, 
specdesttport = c.rem$port, 
$p.esourcesport = c.locSport-, 
specdestscid = c.aram$cid,; _/* remcid init’d to zero: ok for SYN x/ 
sp.sourcescid = c.locScid; 
sp.esegsackino = camySackino, 
END setupsSsegsheader,s 
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[xx bld$send3ctl3seq *x*x/ 
[KKK KKK KO kk / 
bldSsendfctl$seg: PROCEDURE(ct1lSfield, ctl3seqSno); 
/x Build and send a control segment */ 


DECLARE 
ctls3field WORD, 
etlSseqtno WORD, 


/x first build it */ 
CALL getitxSbuf, 
c.esendflag = false, /* clr flag after re~aquiring semaphore since we */ 
/x* will copy seaq/ack state into xmit seg now, and */ 
/* a new sendtlag from another process when it next */ 
/x gains control should cause a new pkt to go out. */ 
/x fill in the Data Link fields (TCL really 
shouldn’t be doing this wee */ 
CALL setupSsegSheader, 


sp.segiseqino = ctlSseqsno, . 
spebufslen = dlltheaderSlen + minSpkt3lens /* Pad buffer length to meet minimum x/ 


/x Ethernet Data Link spec. Change */ 

/*x This if tclSheaderSlen gests */ 

/* greater than 46 bytes */ 
spesegsdatatlen = QO, /x no client data bytes in control msas */ 
spectl = ctl3field, 

IF ctl$field = synSmask THEN 


D0; /* syn packets are special: */ 
sp.segtgack3no = OG, /* syn always has zero ack - helps keep */ 
/x duplicate SYN’s from causing RST. */ 
spedesticid = 0; /* dest cid unknownmpart of RST stuff. */ 
END; 
ELSE sp.ctl = sp.ectl OR min(max$window$size, camy$credit); 


/* param order reversed 4717781. May need it elsewhere */ 
cehighest$sent = maxtmods4k(sp.seagsseqino, c.ahighest$sent); 
CALL sendSpacket, /x* compute chksums sends log */ 


ENS bld3sendtctlsseg, 


[RRR RR KK KK RK RR RR kk / 
/x*x* ainerg$retranscounts *x/ 
[KKK KKKKKKK KKK KR RK KR KKK / 
incrSretranScounts: PROCEDURE, . 
/* routine to increment (sticky counters) re-xmit- 
related counters and check for abort timeout. If 
abort timeout exceeded, it aborts the connection, 
and enters the Closed state to await an ACK/Resot. */ 


/* note retransmit count in counters: THESE ARE 
APPROXIMATE ONLY, AND ARE ACTUALLY MEASURING 

THE NUMBER OF TIMES THE REtTRANSMIT TIMER WENT 
OFF, NOT THE NUMBER OF PACKETS RETRANSMITTED !*/ 


CALL stky_inecr (Cdc.nos$confid)s /* sticks at max value */ 
CALL stky_iner(Cdc.pkts$retran); 
CALL stky_iner(atot3pktstretran); 
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-/* now see if wa have exceeded the abort timeout */ 
/* eee 2PNDrOXimatead as the nonmconfid count times the * 
/x retransmit timeout value. x«/ 


/x if abort timeout isn’t infinite, check for */ 
/x timer expired x/ | 
TF ceahbortsStoshi <> OFFFFH THEN 
DO; 


/*x C.zNOCONFID NEEDS TO BECOME A WORD, BUT NOT RIGHT NOW. x/ 
/* 12/13/81 - has been made a word - RJ x*/ 


/x add in last timeout to cumulative retran time */ 
c.cumSretran3sdw = c.cumSretransdw + c.restranstosduw; 
/* now see if cum retran time is >= abort timeout */ 
/x (since lsw of abort timeout is always zeros wa */ 
/x can just check the msu of each) x*/ 
IF high(€c.cum$retranidw) >= ceabortstoShi THEN 
DO; /x yes it has ... close down the connection */ 
CALL try3tofdaeletastcdb(curscdbSindex, curscdb3p, locstimeout), 


. =ND; 
END; 
END inerSretranScounts, 
[KKK KKK KKK KKK KKK KER KAKK KKK / 
/xx segstran3timestamp x**/ 
[KR RIK KEK KKK KEK KKK KKK KK / 
segStranstimestamp: PROCEDURE C(seghseqsno_to_timea), 
/* tries to timestamp the segment being sent 
so that the roundtrip time of the ack can be 
used Cin RP) to adapt the retransmit timer */ 
DECLARE segsseqino_to_time WORD, 


IF c.stimedSseqgno <> 0 THEN RETURN, /* return if a seg is already bsing timed *x/ 
CALL cqSreadSclock(.tpStimestamn); 
cesegstransstimesSdw = tostimestamp, 

Ceatimed$S$saqsno = segSseqsno_to_time, /x save so RP knows which seg is timed */ 


END segitranstimestamn: 


[KR RK KK KK KK KR KK KKK / 

[xx tp$err3flow xx / 

[RKKKRKKKKKKKKKEKK KR KKK / 
tpterrSflow: PROCEDURE BYTE; 


DECLARE 
CinSwindow, showS3nsuSdata, sendddatatnow) BYTE, 
tempSnext$Stransmit word, /* 4/1/82 fix */ 


etl$field WORD, 


/* If this runs under a preremptive scheduler, this routine and its 
countersart in the receive process should lock the connaction 
data bass while being executed *«/ 


/* old-credit, old-ack-no detection occurs as a sendflag event caused by 
receive process, don’t test them here. 77? Rercheck this eee */ 
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IF ca$checkSalarmCac.edatasalarmich) THEN 


~—6DOe. /* we have a rertransmit event: the ACK timer went x«/ 
/* off - need to reset xmit seq no and retransmit */ 
cenextStransmit = c.nissackino + 1; 
CALL inerS3retranScounts, /* increment all the retransmit counters */ 
IF castate = closed THEN RETURN( false), /x abort timeout went off - quit x/ 
END; 


/x see if the seg no I want to send (next$transmit) */ 
/x* is inside the receive window of the remote guy */ 
inSwindow = geSmod64k( (c.w.his$ackS$no + cshisdcredit),s, cenext$transmit ); 


/x also see if the seg I want to send next is the */ 

/x one just aftar the last one ramote guy has acked x/ 
showsSnewSdata = Cc.nextEtransmit = (c.zhisSack$no + 1) )7 

/x We will send data if: (1) we have some to sends */ 

/e* and (2) aither our next seg is within his window x/ 

/x or Caven if it isn’t) it is necessary to send x*/ 

/x it to ensura that we aren’t blocked by a zero */ 

/x window (the new credit pkt may have been lost).*/ 
sendSdataSnow = Cindwindow OR showtnewS$data) AND Cc.chtaSbufSent <> 0), 


IF sandSdatasnow THEN 


tampSnextttransmit = cenext$transmit? - /* 4/1/82 */ 
IF get /* (cenext$transmit)*/ THEN /* param is implied, not explicit */ 
00% /x send the data segment that GET gust filled */ 


CALL setunSsegtheaders /* "Get" already set segSseqsno */ 
CALL sendSpacket, /* compute chksum, sends log x/ 


i ieee eas time of ack to seg */ 
i Tempsnextstransmit <> c.anextStransmit . 
yep ~ SE 
/* ro must have run and changed next transmit, 
so change it back */ , le 
Cenext3transmit = tempsnextStransmit, 


END, 


cehighestssent = 


/*x sendflag was cleared after getitxtbuf */ 
IF showSnewSdata THEN /x set re-tran timer in the special */ 


: /* case that this is top seg */ Sige 
CALL clrSsetSdatase ndcheck OR irbStimsoutS 7 


canextStransmit = esvnextStransmitt 
RETURN Ctrue); rue => we sent some data */ 


END; 
END; 


IF casendflag THEN . 
DO; /* SEND A CONTROL SEGMENT x/ 
CALL bldtsend$ctlisegCack3mask,-c.ehighestSsent); 
/x sandflag was cleared after getStx$buf *«/ 
ENO; 


IF €cechtaqtbufscnt <> Q) AND (Cc.datasachbiflag <> timerSrunning) THEN 
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END; 
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/x NOTE: we are providing protection against the case where */ 
/x the data timer expires, but we cannot send any data (due x*/ 
/x to remote window, presumably). */ 

CALL cirSsat3datasalarm(irb3sendScheck OR irbStimsoutSmask); 


RETURNC false), 


ENO tnoderrSflow-, 


[LKRKKKKKKKKKKKKKK KKK / 


/xk* send3connect$sag x*xx/ 
[RK KKK KK KEK KKK KKK / 


sendiconneaectfseagqg: PROCEDURECcCtISfield)>, 


DECLARE 
etl$Sfield WORD; 
IF Cirb utype AND irbStimeouttnask) <> QO THEN 
DOs 
CALL inecrS$retranScounts, /* keep track of how many times we tried */ 
IF castate = closed THEN RETURN, /* abort timeout went off = quit */ 
CALL blddsendsctléseg(ctl3field, c.sahighest$S$sent); /*x raw-xmit */ 
END, 
ELSE /x* Virtual or real "first time" */ 
DO, /x for this req, not re-~xmit timeout */ 
CALL bldSsendSctltseg(ctl$field, c.anext$transmit); 
canextStransmit = c.next$transmit + 1,7 
ENO; | 
catimedSseqino = QO, /* start timer each time it is sent x/ 
CALL segStranStimestamp(c.anext3transmit)-, /x time the roundtrip time of ack to seg */ 


/*x common code for the send-control-seg logic, cases O71,77 

of irbh type. If this not an alarm timeout then use next 
transmit as seg seq nov and bump it for next time, howeversif 
this is not an alarm, than next transmit was previously bumped, 
so we use highest sent, which is always ok for a reactran of a 
ctl seg. x / 


/*x Now set ravtmtransmit timer in case pkt is lost x*/ 
/* Set type to be time-out retry: */ 


CALL clrSset$dataSalarm( (Cirb_ type AND irbStypeSmask) OR irbStimeoutSmask )-; 


END sendtconnect3seag, 


send3rsttifromslirb: PROCEOURE,> 


[KK KKK KKK KA KKKKKEK RRR KKK / 


/x* sandSrstifromslirb *x/ 
[KKK KKK KKK KEK KK KEK IK KK / 


/* Sends an RST segment. The fields for */ 
/x the seg are in the irb, which is */ 
/x in lirb format for this type request */ 


CALL get3tx$buf,; /* get a seg buf */ 

speabufglen = dllSheaderSlen + minSpktS$len, /* no client data */ 
spedlidest( (9) lirb.dlsdest(0); 

sp.adlédest(1) lirb.adisdest 1); 

spsdlsdest(2) lirb.edlsdest(2), 

spetcliversion = tel3versionslit; 

CALL MOVWCOlirb.dest$port, Asp.edestSport, 6)-> /x these fields all aligned 


Wow tt 


*/ 


PAGE 
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Sie 2 sp.esegtdataSlen = 1, /x No client data, but one byte of reason */ 

Ea ge 2 spectl = rsttackSmask, 

374 2 sp.esegqsdata(9) = Llirb.reason,; 

Bee: 2 CALL sendSpacket-, /x* compute chksum, sends log it */ 

376 2 ENC sendtrst3tfrom3lirh, 
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[RK RK IK RK KK / 
/xxk sandloop *«x/ 
[KKK K KKK KKK KR KKK KKK / 
sendloop: SROCEOQURE; 
/x Code~saver loop to do send check and 
send flag loop processing */ 
j=0; /x send, or if the data timer expired x/ 
DO WHILE tpserrStlow AND (Cgj:=jt1) < maxSsand$seg J7/x x*/ 
/* now let in RP while we’re trying to */ 
CALL caSsignal(.schadSlock)7/* run off several segments */ 
CALL caSscheduls, 
CALL caSwaitsem(.schedSlock), 
END; 
RETURN; 
END seandloop, 


LKR KEKE KKREKEKK KKK KKK / 
[xxxx transSproc x**x/ 
[KKK KKKKKKKKEK KKK KKK 

trensfproc: PROCEDURE PUBLIC, 

| /x This is the Transmit Process */ 
\ 
00 foraver, 
irb$Sp = caq$receive(.tp3mbx); /x wait for sendsyn irb or lirb from IP */ 


CALL cafwaitsem(.~schedSlock); /* lock up ecdb’s for safety */ 


3IF dbg 
SENOIF 


irb_ types = irb.type, /* make nonv-based copy for speed and code size */ 
SIF Log 
SENDIF 


/* some consistency checking: type code */ 
/x* must be good or we halt for debugging x/ 
IF C€Cirb type AND irbStypeSmask) > irbSmaxScode) OR 
(Cirb_type AND irbZinvalid$Smask) <> OQ) OR 


CCirb eo type AND irlbsctlLétimesoutSmask) = irbSctliSachSmask) THEN 

00-7 . /x Its an illegal irl type - lock up x*/ 
CALL caShaltsSandScatchsSfire Chacf$tpSirbstype), 

END, 


/x Try to set up the edb for processing by 
validating the cdb index and lcid vector to 
the extent possible. Timer events have no 

cid in the "“irb", and all connection alarm chs 
area cleared at delete cdb time anyways so no 


16 


Pig ase LOOMS ose LL“ A Teenenort Contral Leysr Tranenit Proesss 04/15/82 04/23/82 PAGE 117 


validation really needed - check for cid <> 0 
for the time being. Real irb’s have to match 
the irb cid with the cid in lcid vector. x/ 


395 3 IF irb type <> irbSsendret THEN /* sendrst excluded because its indep of cd */ 
396 3 DO; 
397 4 IF (irb type AND irbStimeoutSmask) = 0 THEN /x its not an alarm chs */ 
398 4 DO, /x so cdbindex/cid are in irb */ 
399 5 cur$cdbSindex = irb.cdbSindex, 
400 5 IF lcid3vector(curSedbSindex) = O THEN /* COB has gone away: complain */ 
401 5 DO; 
3IF log 
SENDIF 
402 6 GOTO giveSbackSirh, 
403 6 END; 
404 5 curScid = lcidSvector(cursScdbhSindex), 
405 5 CALL satupsedb(curSedbSindex, .«curScdb$p)-, 
406 5 IF leidSvector(curtedbSindex) <> irb.scid THEN 
40 5 D0, 
SIF log 
SENOIF 
408 6 GOTO giveSbackSirb; 
409 § END, 
410 5 END, 
411 4 ECSE /x The irb is really an alarm cb, so derive */ 
| 00; | /x the cdb ptr from the known offset of ctl */ 
/x or data ACB in the conn db. First, filter */ 
/* out spurious timeouts (i.e a clearalarm */ 
/x was issued, but too late to stop it from */ 
/* going off...note: this isn’t supposed to */ 
/* happen anymore!), and cases where a clear */ 
/x or setalarm was issued after the caqreceive */ 
/x above, but before TP acquired the semaphore. */ 
412 5 IF acb.sflag <> 1 THEN /* Its not an expired alarm */ 
412 5 DO; 
SIF Led 
SENDIF 
414 6 GOTO giveatback$Sirb,s /* its obsoleta: ignore it */ 
at5.  -6 ENO; ou 
416 5 cur$cdb3b = irbSbs /* set up base portion of cdb ptr */ 
417 > IF Cirb_tyoe AND irbSetlachSmask) <> O THEN /x its a ctl ach x/ 
418 5 cur3cedhSo = irbto - (€.c.ctl$alarmfchb(0) - .c)? 
419 5 SLSe curScdbso = irbsSe - (sc.dataSalarnScb(0) = .¢)+ 
/* cur$cdb3p is now set ups so x/ 
420 5 dummy$label: —cursScid = c.loc$cids /* assign value (label kills register history) */ 
. /x Now get the cdb index for the cid */ 
421 5 IF Ccursedbtindex := search _lecidSvector(curS$cid)) = OFFFFH THEN 
422 5 . 00; /x the cid isnt there anymore */ 
SIF log 
ScoNDLF 
423 6 GOTO giveSbackS$irb;, 
424 6 END, 
425 5 ENO, 


; /* Chack to see that the conn isn’t in */ 
4256 4 IF c.zstate = closed THEN /* Closed state - no TP request except x/ 
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427 4 DC; /* send rst is valid in Closed x/ 
$IF log | 
SENDIF 
428 5 GOTO givesbackSirh, 
429 5 END; 
430 4 END; 
431 =) DO CASECirb_type AND irb3tynedmask); /x* Upper bit indicates whether thisx/ 
/x first time or a timeout of prev event x*/ 
/* case sandsyn - 0 x«/ 
432 4 DQ; 
433 5 CALL sendSconnscttseg(syntmask); 
434 5 END, 
/* case send synack - 1 x/ 
435 4 DO; 
436 5 CALL send$connect$ssqgl(synsack3mask) > 
437 5 END; 
/* case sendfin - 2 x/ 
/x* THIS NEVER GETS EXECUTED NOW (4/29/81): IP DOES A 
SEND CHECK ON CLOSE CALL. TAKE IT OUT SOMEDAY. x/ 
438 4 ; 
/*x casa sendrst - 3 x*/ 
/x RP received a seg requiring an RST */ 
/x replys or local client issued Abort */ 
439 4 CALL sand3rst3fromslirb;, /x requast: Send a Reset segment */ 
/x Note for send check and sendflag: letting the RP in while 
we are still holding an irb is dead-lock prone, and has been 
taken care of by making ip and rp defer the acquistion of an 
irb until after they have released schedlock. */ 
/* casa sendcheck - 4 x/ 
440 4 DO; /* try to send some datas we get here if x*/ 
/*x RP says renote tcl’s window changed, */ 
/x or if IP says there is new data to «/ 
441 S CALL sendloop,s . 
442 5 END; 
/x case sendflag - 5 x*/ | ; 
443 4 DOs /x test to see if the shared variable */ 
/x Sendflag is set. If not, ignore x/ 
444 5 IF c.sendflag THEN /* tnis event since TP has already x*/ 
445 5 DO; /x reacted to it */ 
446 6 CALL sendloop, 
447 o END; 
448 5 END; 
/x* sase timewait3to - 6 */ 
449 4 00; 
/x seat state to closed, clr lists, clr alarms */ 
450 S) CALL tryStoSdeleteScdb€curicdbSindex, curScdb3p, ok3closed$Sreasp), 
SLE 3 OO 
SENDIF 
451 5 END; 
/x case ayt3timer ~- 7 x/ 
B52 7 4 DQ; 
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/* areryoutthere timer expired - if the */ 
/* aytcount has exceeded the maxs abort */ 
IF ceaytdcount <= ayt$countsmax THEN /x count hasn’t hit max yet */ 
DO; 
CALL bldSsendSctl$seglaytSmask OR ackSmask, c.wahighestisant), 
/* 
03/10/82 The RP could have run and set ctl timer, so see if 
it is sete Ignore this fet if it has 
x / 
if c.ectlSachSflag <> 0 then 
do; 
ceayt$count = ceaytS$count + 17 
CALL cqaSsetSalarm(ac.zctl3alarmScbh, .wztp$mbx, 
highCaytStimersdw), 
low CaytStimerSdw)); 
and, 


DO, /*x count exceaded - close the connection *«/ 
/x just like an abort timeout. */ 
CALL tryStotdeleteascdblcurScdbSindex, curscdb3$p, locStimeout); 


$1 | 
SENDIF | 


mM 
a 
oO 
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END; 
END, /x of do case x/ 


givetbackS3irhb: /* Now see if we have an IRB to send back x*/ 
IF Cirb_type AND irbStimeoutSmask) = QO THEN /x its not an alarm ach, so send it back */ 
DO; /x to the right free mailbox x*/ 
IF irb_type <> irbSsendrst THEN 
00,7 . . 
CALL cq$send(.freeSirbSmbx, irbSp); 
END, 
ELSE 
DO; 
CALL caotssend({.freeslirb$mbx, irb3p)-, 
END; 
END, 
/*x else ignore ity because its an alarm ch in the connection data base */ 
/x Release the processor temporarily to let */ 
/* in RP in case we just sent him something */ 
/x - maybe important in loopback. */ 


SIF dog 
SENODIF 
CALL caSsignal(.schedSlock); /x free up edb’s x*/ 


CALL caqSschedule, 
ENO, /* of forever loop */ 


ENC transt$proc, 


END tp, 
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CROSSWREFERENCE LISTING 

NAME, ATTRIBUTES, AND REFERENCES 
ABORTREQ « «6 © «8 8 «@ « LITERALLY °8’ 
ROB a! ve wa te Je) a Cr eS STRUCTURE BASEDCIRBP) 

NEXT « « » «© 8 @ POINTER 

ENP SE ee i te ee BYTE 

FLAG « «© » » « « » BYTE 412 

LAST «2 « «© «@ » e« « POINTER 

DLOW « « «© s we ss WORD 

DHIGH. « « «» «0 «@ WORD 

MBXe » 2 © © © @ 8 WORD 
ACKMASK.s. « «© 8» © «© © «6 LITERALLY “*1000H’ 181 339 455 
ALARMP 2. «1 «© «© «© »© « POINTER IN PROC C(CQCLEARALARM) PARAMETER 
ALARMP 2 « ©» «@ 58 © «© «@ POINTER IN PROC CCQCHECKALARM) PARAMETER 
ALARMP . « « «© « © © « POINTER IN PROC CCQCREATEALARM) PARAMETER 
ALARMP » 2 «© «©» «© » «© «8 POINTER IN PROC (CQSETALARM) PARAMETER 
AYTCOUNTMAX«. «2 «© «© «» « WORD EXTERNAL (C8) 453 
AYTMASKs «0 ©» © © 28 @ 8 LITERALLY *’200CH’ 455 
AYTTIMEROW 2 «2» «© »© «@ «2 OWORD EXTERNALC7) 159 459 
BLDSENOCTLSEG. « «2 a « PROCEDURE STACK=QQ0EH 559 354 357 
SBLKDATA. « «© 28 «8 «© © @ BYTE BASEDCBLKDATAP) ARRAYC1) IN PROC (GET) 
BLXOATAP « « «© «© «2 @ » POINTER IN PROC (GET) 177* 218% 
BIG GNO EK er ie. ce) Ue. ee Se WORD IN PROC (GET) 170* 170 171 #4173 

att ~-2te® ete. 243: 217 -248 

OEROPE Ss Ie i ae ee cap “Ste WORD IN PROC (GET) 176* 206% 216% 
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61 OOOOH COS TGNAL. -u.- 4:26 ww Gi ee PROCEDURE EXTERNAL(33) STACK=O000H 163 252 380 477 
45 OCOOH COSTARUS sacee A te Be 8 PROCEDURE EXTERNAL(C27) STACK=0000H ; 
64 0QO000H COWAZTTSEMS wa aoc e~ PROCEDURE EXTERNAL(34) STACK=O0000H 165 254 382 389 
7 EREOTTMASK: ie. Ss. Se. oR ay LITERALLY “’OQO3FH’ 
147 QO004H 4 “CSOT GPE. ac se ue! Bo ai. BYTE IN PROC CCLRSETOATAALARM) PARAMETER AUTOMATIC 147 149 
7 CTELSITSMASKS. ea a LITERALLY “°1FOOH’ 
268 O006H 2 GTEEERELD ie wo “o- ae SWS WORD IN PROC CBLDSENDCTLSEG) PARAMETER AUTOMATIC 268 275 276 
307 O024H 2. CTUPLSED: se. & wt gs Sass. Se WORD IN PROC CTPERRFLOW) : 
348 0O0004H 2- CRLPEELD. 6:6: Sl wl ee WORD IN PROC CSENDCONNECTSEG) PARAMETER AUTOMATIC 348 354 
357 
268 Q004H 2 ‘CTESEQNO: 4 wet eee fe ox WORD IN PROC CBLDSENDCTLSEG) PARAMETER AUTOMATIC 268 272 
1638 O01AH @ “COM RSS YES a cay 4s. ow WORD IN PROC (GET) 207* 210 241* 2711 216 
8 OOOEH 2’. CURCGDUB Ba. iow we ee WORD AT 416* 
3 0036H 1 CURCDBINGEX. £ © wR % BYTE 254 399% 400 404 405 406 421* 450 463 
8 COCCH 2 YOURECDBOe 'S a oe Sica. 4074 WORD AT 418* 419% 
8 O0Q0CH a CURGDEP 5 sip ow. eevee eee POINTER 8 148 150 181 194 196 197 221 257 
258 259 261 262 263 264 265 281 282 286 287 
289 294 292 294 300 308 310 312 315 316 317 
320 325 329 330 333 337 #+j339 $341 #+‘1352 354 +4357 
358 361 405 418 419 420 426 444 450 453 455 
456 458 459 463 
3 QO000H 2 “CURC IY sa. ie. ee at suet as Wat. WORD 404* 420* 421 
938 OCOOH 2 SAT AR TNO: te: ee Fat oan Ue. ht WORD IN PROC (CQREADCLOCK) PARAMETER 98 
2 DEFNETIOLIT. « « «© « « LITERALLY °17 
1.0 DEFSTATUSREQ .« «2 « © « LITERALLY °4’ 
104 OQCOO0H 2. DS GAVE: ie -we aas eae a WORD IN PROC CCQSETALARM) PARAMETER 104 
104 Q000H 2 RII: te can Ge, oa Yay ada WORD IN PROC (CQSETALARM) PARAMETER 104 
15 OOOOH DELETECDES “so: Se a we PROCEDURE EXTERNAL(17) STACK=Q000H 
2 OLLHEADERLEN « 5 0 '» LITERALLY °147 191 273 366 
420 O769H DUMMY LABEL. <a te: ae ee hae LABEL IN PROC CTRANSPROC) 
56 O000H 2. ENGR YO? a> ce woe uke a ona Ge WORD IN PROC CCQCREATEPROCESS) PARAMETER 56 
7 EQMACKMASK . « « « « « LITERALLY °1200H’ 
7 EOMFINMASK. « « » «© a 0 LITERALLY ’04500H’% 
£ COMMAS Ki ce: Se eo on “a. lw. % LITERALLY *0200H’ 185 
53 O0O00H ERRORCOD Geis elev a) WORD IN PROC CCQHALTANDCATCHFIRE) PARAMETER 53 
11 EST how fe, oe ae SS a les Ge OR LITERALLY ‘’3’ 
2 PALS Gea. a eo fe Get a? Se LITERALLY °0’ 178 195 202 224 226 270 313 £345 
7 PINACK MASK: > ewe eed oe LITERALLY °1400H’ 
7 PENMAS Kee. 2a: ass ee tacts. ts 8 LITERALLY ’O400H’ 187 
11 PONWAITS ce ver Ge @ ob re LITERALLY °%47’ 


PL/M-86 COMPILER 


ad. we eS A ee LS 
De Se Se ee ee 
tA un Ut ou 


O000H 
OO00H 


0900H 
O093H 
OGOOH 
OOOOH 
0001H 
O00cH 
GOO4H 
QO08H 
OOQOAH 
O008H 
OOOCH 
OOQOQEH 
OOOFH 
0010H 
0012H 
OC16H 
9018H 
QO1AH 
001CH 
OO1VEH 
O01FH 
QO2AH 


OCOCH 
QOQ00H 


O0O04H 


OO2EH 


OO71H 
O82AH 
QO0O0GH 


mn 


Ul Us 


Fe PPB) POE DP mM Aa Pp AH AS Pp SM A | VO 


Pr OH 


tot 
~~ 


LLNA Transport Control Layer 


CROSS“REFERENCE LISTING 


FINWAIT2 . . 
FOREVER. « « 
FREEIRBM3X . 
FREELIRSBMBX. 
FROMLISTEN . 
GEMODS4K . . 
GETe. 6 « « o 
GETRBS « « -» 
CONTENTS 
LASTSEC. 
MIPBUFBASE 
MIPLENGTH. 
MIPTOSIO . . 
MIPOWNERDEVID 
INTERNALPROCE 
REQe 2 » « 
Ras. ee 
RTNMIPSKT. 
LINK « « « 
CID. « w ow 
PERS VSO: var ie 
CLIENTUSE. . 
BUFLEN 2. « « 


SID 


e e s s YY) @ es e s s e a s a e e e e e e 
e s a a it #8 2 a es s es e e e J e e e s s 
oe es e e ts] s e s es e a e es es e s e e s a 


NUMBLKS. . 
VB a a a a 
GETROSP « os we 


ws 
oe 
a 
~ 
m 
= 

» 8 @ «@ 


GETRBVP. . 


GETTXBUF . « -» 
GIVEBACKIRG. .« 
GTMOD64K . 2 s 
HACFCHKACS . . 
HACFOLLCONN. . 
HACFOLLREADHOST 
HAG RIPDEP IRB a -% 
HACFMIPCONNECT . 
HACFMIPREGISTER. 
HACFMIPSENDs. « « 
HACFPUTCNT « « o 


HACFRPCOMPLETE 
HACFRPDEFIRB . . 
HACFRPPUTOATAP 2 

HACFRPPUTNEW3BLK. . 

HACFRPPUTPTR « « « 

HACFRPPUTSENDRBSBAC 
HACFSENDSLKLEN . 
HACFTOGETBLKLEN. 
HACFTPGETCHK ., 
HACFTPIREACSB ., 
HACFTPIRBP 2. . 
HACFTPIRBTYPSE. 


« a o « ‘ s ~~ 68 s s s s s 


Transmit Procass 


LITERALLY 
LITERALLY 


WORD EXTERNAL C12) 
WORD EXTERNAL(13) 


LITERALLY 
PROCEOURE 
PROCEDURE 
STRUCTURE 
BYTE 

BYTE 

WORD 
POINTER 
WORD 

BYTE 

BYTE 

WORD 

oR A i 

= Ba 
WORD, 
POINTER 
WORD 

WORD 

WORD 

WORD 

BYTE 

BYTE 


POINTER IN PROC 
201 


201% 
STRUCTURE 
POINTER 
WORD 


POINTER IN PROC (GET) 


216 
PROCEDURE 


LABEL IN PROC (TRANSPROC) 


PROCEDURE 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


“WHILE true’ ecg 


O4/23/' 


™m 


04/15/82 


LP 9] 


“5? 


471 

474 

“80H’ 

BYTE EXTERNAL(19) STACK=O0000H 
BYTE STACK=000CH 321 
BASEDCGETRBSP) IN PROC (GET) 
200 


315 


200 


136 


201 


198 205 
182 
171 
204 


208 

213 

(GET) 171 184 198 
206: 205 -208..~215 

BASEDCGETRBVP) ARRAY(1) IN PROC (GET) 

177 218 

175 210 


182 186 196* 


217 
175 


173 211 


175 177 204* 210 211 


2c0° ao 
402 
STACK=Q000H 


365 
408 


STACK=0006H 
414 428 


198 


4.23 
BYTE EXTERNAL(18) 200 
"438° 
74017 
"402° 
“hse? 
2.042 
3G? 
7446" 
"405°" 
413° 
433° 
“442° 
“409° 
“Eq? 
74407 
Aas 
“4087 
"407" 
‘4457 
eae ad 
7406" 


209 


217 


PAGE 


24 


PL/M~86 COMPILER iLNA Transport Control Layer Transmit Process 04/15/82 04/23/82 
CROSS“REFERENCE LISTING 


145 HACETPTIMEQOUT. « « a LITERALLY °435” 
145 ARCPTOS Qu «cd. ae wo ae LITERALLY °4177’ 199 
145 HACGEMO 4: So ee ate at % LITERALLY °436” 
145 ARCE ZO @ ie a.: ee en ac ks GS LITERALLY °437’ 
HGH: ca 2 ey ch - te, Yee Ge ae BUILTIN 150 159 292 459 
10 TREEGALREO. we we ae LITERALLY ‘107 
285 O415H 92 INCRRETRANCOUNTS .. . PROCEDURE STACK=O000CH 311 351 
12. OOOOH q. TFN Ee: cg a eh ee. fet SS aR Se 8SYTE IN PROC CSETUPCDB) PARAMETER 13 
59 QO000H 2: SENSE 431s ee eae WORD IN PROC CCQCREATESEMAPHORE) PARAMETER 59 
10 INVALIDPOINTER « 2 « « LITERALLY ’20” 
— 10 INVALIDREQ « 2» «© «© © « LITERALLY ’2’ 
307 0038H 4 SENWINQOW Ss ce ge a ce BYTE IN PROC CTPERRFLOW) 315* 317 
5 0000 2 ED UNME Xa a cep Mae Gk “a. WORD EXTERNAL (11) 
8 QO00H Bo ERGs. Skye we a STRUCTURE BASEDCIRBP) 
OOOOH 4 CMKOT RO <o e e rae 3 POINTER 
O004H 1 TVR. Scat Boe ee BYTE 390 
OCO5H 1 COSINOEK iw ie. ter vec BYTE 399 
OO006H 2 Olds Aes ho At KL a WORD 406 
9 TRBAYTTIMER. «© «© w@ « LITERALLY ’7’ 158 
@ 0012H O. PRBS gm ac ae Cae Oe Te ee ee WORD AT 416 
9 IRBCTLACBMASK. « «2 «2 LITERALLY °’4CH’ 391 417 
9 IRSCTLTIMEOUTMNAS Sis LITERALLY ’OCOH’ 158 391 
9 IRBSINVALIOMASK . «2 «2 LITERALLY °38H’ 391 
9 TRSMAXCODE oe 4 te ca METERALLY~*7" 3914 
9 TRENUL be % See Re ee LITERALLY ’OFFH’. 
8 0010H 2 - “TRAC ve-:. ge ae Bis eh Ee WORD AT ~ 418 419 
8 6010H G. ER BP et ede coe a ots POINTER 8 367 368 369 371 374 %388* 390 399 
406 412 471 474 3 
9 IRSSENDCHECK 2 2 2 2 LITERALLY “4” 332 343 
9 IRBSENOFIN » «6 « «@ «2 « LITERALLY ’27 
9 TRBSENDFLAG. « « «© «@ « LITERALLY 5% 
9 IRBSENDRST .« «2 © ew «@ LITERALLY ’3% 395 469 
9 IRBSENDSYN «2 «© «2 2 a 2 LIFERAGLY: “0 | 
9 IRBSENDSYNACK. 2 «© « LITERALLY ’17 
9 IRBTIMEQUTMASK 2 2 «@ « LITERALLY “’80H’ 332 343 349 362 397 467 
9 IRBTIMEWAITTO. « «© » « LITERALLY °67 
9 IRBTYPEMASK. «2 © « «2 LITERALLY ‘’OFH’ 362 391 431 
3  OO37H 41 IRB_TYPE . 2 2 © @ 2 BYTE 349 362 390% 391 395 397 417 431 467 469 
3 0002H Bo ind Se aalowhs va. ve? pee fete WORD 378% 379% 379 
3 QOCOOH © POTD VECTOR a3 4-0 s &. &: & WORD ARRAYCO) EXTERNAL CO) 400 404 406 
8 OOOOH Bee MTR ax Sr oo, ay. Gait en, OM STRUCTURE BASEDCIRBP) 
OO00H 4 GCMXP TR a Ak es Gate POINTER 
0004H 1 TN OG. at se eset eS BYTE 
GOCSH 1 REASON, G—e-G. a. a: % BYTE 374 
OO065H 6 BLSEST Sos: ey Se se S's WORD. ARRAY (3) 367 368 369 
OOOCH 2 OSSTPORT ea: sa7 6's WORD 371 
OOOEH 2 SOURCEPORT . « « « WORD 
0010H 2 Des Tet Oe a: Sean Sac te WORD 
0012H 2 SOCURCECTOs a & ie x WORD 
O014H 2 SEGSEQNO . « « «© « WORD 
0016H 2 SEGACKNO . & © «=< WORD 
11 RSENS ce... a. ae ee. ae LITERALLY *0” 
48 QO000K > STR e cam ier fe. “tes cap ca, See ok POINTER IN PROC (CQCREATELIST) PARAMETER 43 
10 WOCNBORT. ee 8 ee A bse LITERALLY °12’ 
3 OOOGH 6. LOCHOSTS ch. co. we Gwe WORD ARRAYC(3) EXTERNAL (2) 
3 OOOOH 2 SOCNET oon cles ae UO ees WORD EXTERNAL(1) 


PL/M-84 


O000H 
OOOOH 
OO000H 
GQQQH 
OO00H 
QO000H 
QQ0Q0H 
QO0O0H 
OOOOH 
OOOOH 
OQ00K 
QOQ00H 
OOOH 
QQO0QOH 
OOOOH 


Q000H 
OCOOH 
OCOOH 
QO000H 
OOQOH 
3000H 


O000H 
CCOOOH 
OOOOH 


QQQ0H 
OOOOH 
QO0GH 
O00Q0H 
OOOOH 
OO00H 
0240H 
O24AH 


OOOOH 
Q0Q0H 


O000H 
QO000H 
OCOQOH 


OO00H 


Mm PM rw NM NIP PO PU PO PO PO 


mr 


MPP bo Pe more PR pp ro 


eo) 
~J 


ror 


- mr 


ILNA Tranenort Control Layer 
CROSS“REFERENCE LISTING 


LOCTIMEOQUT 
LOSGRBMIPPORT 


LOW. « « 
M « s rs a 
M e a a ] 
Me 2 «@ 
M . 2 e e 
i s s a « 
MAIL BOXO 
MATLBOXO 


MAILBOXO . 


MAILBOXO 
MATLBOXO 
MATILBOXO 
MAILZOXO 
MAX. « 
MAXMOD64K 


MAXSEGDATALEN 


MAXSEGOATALENLI 


MAXSENDSCS 
M&XWINDOWSIZE. 


MBXO « - 
MBXO « . 
MESSAGEP 
MESSAGEP 
MIN. » « 
MINPKTLEN 


MIPECHOPORT. 


MIP_FORM 
MODIFIER 
MODIFIER 
MOV‘ 
MSGP 
Nk: 
oe 
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Nex oe &. 4 
Ne se ke 
NMBTOP . 
NOMOREBLK 


NORESOURC 
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OKEQMRESP. 
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OKRESP . 
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Tranemit Process 


LITERALLY °167 294 463 
LITERALLY ‘5% 

BUILTIN | 150 159 459 

WORD IN PROC (MAX) PARAMETER ar 
WORD IN PROC (MIN) PARAMETER 28 
WORD IN PROC (MAXMOD64K) PARAMETER 
WORD IN PROC (GEMOD64K) PARAMETER 

WORD IN PROC (GTMOD64K) PARAMETER 

WORD IN PROC (CQCRECEIVE) PARAMETER 
WORD IN PROC (CQRECEIVE) PARAMETER 
WORD IN PROC (CQSEND) PARAMETER 


WORD IN PROC (CQCREATEMAILBOX) PARAMETER 


WORD IN PROC CCQSETALARM) PARAMETER 
WORD IN PROC C(CQICRECEIVE) PARAMETER 
WORD IN PROC CCQISEND) PARAMETER 
PROCEDURE WORD EXTERNAL(24) STACK=0000H 
PROCEDURE WORD EXTERNAL(20) STACK=0000H 


WORD EXTERNAL(C3) 5.202. 22% 
LITERALLY %1480’ 

LITERALLY *°07H’ 379 

BYTE EXTERNAL C4) 181 281 


WORD IN PROC C(CQDLLCONNECT) PARAMETER 
WORD IN PROC (CCQMIPCONNECT) PARAMETER 
POINTER IN PROC (CQSEND) PARAMETER 
POINTER IN PROC (CQISEND) PARAMETER 
PROCEDURE WORD EXTERNAL(21) STACK=0CO00H 
LITERALLY °46’ 191 273 366 
ETTERALLY ? 7" °° 


74 
72 


POINTER IN PROC (CQOMIPGETADDRESS) PARAMETER 


WORD IN PROC CCQDLLREADC) PARAMETER 
WORD IN PROC CCQDLLREAD) PARANETER 


BUILTIN 231 371 

POINTER IN PROC (CQMIPSEND) PARAMETER 
WORD IN PROC (MAX) PARAMETER ag 
WORD IN PROC (MIN) PARAMETER 28 


WORD IN PROC CMAXMOD64K) PARAMETER 
WORD IN PROC (CGEMOD64K) PARAMETER 


“WORD IN PROC (CGTMOD64K) PARAMETER 


LA8EL IN PROC (CNOMOREBLKS) 174 


PROCEDURE BYTE IN PROC (GET) STACK=0008H 


LITERALLY °4’ 

WORD IN PROC C(CQDLLREADC) PARAMETER 
WORD IN PROC (CQDLLREAD) PARAMETER 
LITERALLY °9” 450 
LITERALLY “3” 

LITERALLY °5”% 

LITERALLY. “1* 

LITERALLY “7” 

LITERALLY: 70" 

LITERALLY °187’ 
LITERALLY 2° 4" 


WORD IN PROC (CQCREATEPROCESS) PARAMETER 


WORD IN PROC (CQOLLTXSEND) PARAMETER 
BYTE IN PROC (CQMIPCONNECT) PARAMETER 
LITERALLY ’7’ 


WORD IN PROC (CQCREATEPROCESS) PARAMETER 
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LLNA Transoort Control Layer 
CROSSTREFERENCE LISTING 


PROCEDUREO .. 
PRE. eh aca oe. 
REMABORT « « 
REQMAX « . 
RESPCODE . 
RETURNBUFP 
RETURNBUFP 
RPMBXe « « 
RSTACKMASK 
RSTMASKs « 
RTNCODE. . 
SCHEDLOCKs «: « « 
SEARCH_LCIOVECTO 
SEGO «eae Ow ce 
SSGOFESETs -w «<3 
GREMBYTES. « >» 
SGSEQGNO_TO_TIME 
GTRANTIMESTAMP 
EMAPHOREO , 
SEMAPHOREO ., 
SEMAPHOREO . 
SEMAPHOREO . 
SEMAPHOREO . 
SEMAPHOREO . 
SENDCONNECTSE 
SENDDATANONW. 
SENDEOMREC . 
SENDLOOP . . 
SENDPACKET . 
SENWOREO«. 2. ta ce 
SENORSTFROMLIR3 
SETUPCDR . «2 » 
SETUPSEGCTLFIEL 
SETUPSEGHEADER 
SHOWNEWDATA. . 
SH Rv: -tae- ae “el es 
SOCKET 120 -@ tes 
SP doe A kt at 
KAOSMSGHDR 
BUFLEN . « 
DLDEST .. 
DLSOURCE . 
OLTYPS sx 
TCLVERSION 
DESTPORT . 
SOURCEPORT 
DES TCLD-.g 
SOURCECIDO. 
SEGSEQNO . 
SEGACKNO . 
SEGDATALEN 
op 5 Omer 
CHECKSUM 
SEGDATA. 
SPARRAY. « « 
SPOs a. us ta. & 
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Transmit Process 


04/15/82 


WORD IN PROC (CQMIPREGISTER) PARAMETER 
PROC (CQMIPGETMIPFORM) PARAMETER 


POINTER IN 


LITERALLY 
LITERALLY 


44" 
“aA? 


3YTE IN PROC CTRYTODELETECDS) PARAMETER 
POINTER IN PROC CCQDLLREADC) PARAMETER 
POINTER IN PROC C(CQDLLREAD) PARAMETER 


WORD EXTERNAL C10) 


LITERALLY °1100H’ ots 

LATERALLY. “OTOOH* 

BYTE IN PROC CDELETECDB) PARAMETER 16 

WORD EXTERNAL(15) 16S ~165- 252. 234. 380. 362 
PROCEDURE WORD EXTERNAL(23) STACK=0000H 421 


WORD IN PROC (CHKSUMCALC) PARAMETER 40 
WORD IN PROC (GET) 
WORD IN PROC (GET) 


PROCEDURE STACK=0008H 329 361 

WORD IN PROC C(CQCWAIT) PARAMETER . 68 
WORD IN PROC (CQWAITSEM) PARAMETER 65 
WORD IN PROC (CQSIGNAL) PARAMETER 62 
WORD IN PROC (CCQCREATESEMAPHORE) PARAMETER 
WORD IN PROC CCQICWAIT) PARAMETER 89 
WORD IN PROC (CQISIGNAL) PARAMETER 86 
PROCEDURE STACK=0016H 433 436 

BYTE IN PROC (TPERRFLOW) 317* 318 
LITERALLY °6”’ : 184 

PROCEDURE STACK=0018H 441 446 
PROCEDURE STACK=0006H 283 324 375 
LITERALLY ‘57 

PROCEDURE STACK=O000AH 439 

PROCEDURE EXTERNAL(16) STACK=0000H 405 
PROCEDURE IN PROC (GET) STACK=0008H 239 
PROCEDURE STACK=0002H 271 323 

BYTE IN PROC (TPERRFLOW) 316% 317 331 
BUILTIN 231. 

WORD IN PROC CCQMIPSEND) PARAMETER 113 
STRUCTURE BASEDC(SPO) 

POINTER 

WORD 191* 273% 366 

WORD ARRAY(3) 257% 258% 259% 367% 
WORD ARRAY(3) 

WORD 250* 

WORD 260% 370% 

WORD 261% 371 

WORD 262% 

WORD 263% 279% 

WORD 264% 

WORD 189% 272% 282 

WORD 265% 278% 

WORD 190% 274% 372% 

WORD 181% 185* 185 187* 187 275 
WORD 251% 

BYTE ARRAY (1) 234 374% 


190 
227% 
WORD IN PROC CSEGTRANTIMESTAMP) PARAMETER AUTOMATIC 


BYTE BASEDCSPP) ARRAYC20) 


WORD AT 


185 
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PL/M~E6 COMPILER 


6 OCOsH be SOO yr Ses 9h we 
56 00G0H 2 STSCRO ce ceca, &. % 
11 STATEMASKiG: @. @. a 4 
10 ST ALUS Re Gs. jo twl a ws oe 
42  OOO00H STRY.INCRe a -c we a 

7 SYNMACKMASK: 4:4: sa @ .ce 

7 SYNMASAe@ 20. > @: Si - oe 
11 SYAUR GV Die) ee ak lg ec 8 
11 SYN ENC we Pel ee Yee Cae oe 
34 OOOOH WAGE Gita ee G 

168 0016H 2 TARGETOFFSET »« we a 
168 0014H 2 VFARGEISEGS a. he e-em. § 

2 TCLHEADERLEN « « «@ 2 

2 TCLMIPPORT « 2 « ws 

2 TCLPROTOCOLCODE. . . 

fe TCLPROTOCOLCODEREV ., 

2 TOCLVERSTONLIT« .« «2 

307 0022H 2 TEMPNEXTTRANSMIT . . 

2 TIMEQUTINCREASESTATE 

ve TIMEOUTSTEADYSTATE . 

4 TIMERCLEARED: a ee a ss 

4 TIMEREXPIRED 2 20» «@ «8 

4 TIMERRUNNING 2. 2 «@ 
11 PIMEWA AT «: ao 2) a5 SY oe 
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3 QOO00H 2 TOTPKTSRETRAN. « 2 « 

OO00H Gee ask ee ee 

306 O4A4 265 TP SR RE EO Wie. co ds “be Gel oe 
5 0000H B. Ma Ne: ae. ven cs ee cas 

5 00044 4 TRPTIMES TAMP SS: @. So eos 
386 O69FH 437 TRANSPROC. « w we 

2 US ce cae a ie ak, See at xe 

30 QOOOH TRYTODELETECOS «~ «6 % 

143  OO00H BPS ae cocoa cas aes eae ss 
10 UNKNOWNCIORESP .. -« 
83 OCOOH Be? WRG: cde So ay wal ais ~e 
43 OOOOH i UDP ig a. Se a. e,  Ye 


MODULE INFORMATION: 


CODE AREA SIZE O854H 21320 


CONSTANT AREA SIZE = OOOOH OD 
VARIABLE AREA STZE = OO38H 999 
» MAXIMUM STACK SIZE = OO01CH 280 


1653 LINES READ 
1 PROGRAM WARNING 
Q PROGRAM ERRORS 


END OF PL/M~&6 COMPILATION 


iLNA Transport Control Layer 
CROSSTREFERENCE LISTING 


Transmit Process 04/15/82 04/23/82 
POINTER 6 164 223 
WORD IN PROC CCQCREATEPROCESS) PARAMETER 54 
LITERALLY ’OFH’ 
LITERALLY °3% 
PROCEDURE EXTERNAL (26) STACK=0000H 286 287 288 
LITERALLY °1800H’ 436 
LITERALLY “*O800H’ 276 433 
LITERALLY ’27’ 
LITERALLY ’17’ 
WORD IN PROC CSEARCH_LCIOVECTOR) PARAMNETER 34 
WORD IN PROC (GET) 182 205* 210 2416 236* 236 
WORD IN PROC (GET) 189 197* 198 200 205 221 
LITERALLY “*20% 6 191 
LITERALLY °47% 
LITERALLY °5C001H’ 
LITERALLY °0150H’ 250 
LITERALLY °101H’ 260 370 
WORD IN PROC CTPERRFLOW) 320* 325 327 
LITERALLY °1’ 
LITERALLY °0’% 
LITERALLY 727 
LITERALLY °17% 
LITERALLY ’0’ — 344 
LITERALLY °6’ ; 
WORD EXTERNAL (C6) 
WORD EXTERNAL(C5) 288 
PROCEDURE STACK=O0000H 
PROCEDURE BYTE STACK=0014H 379 
WORD EXTERNAL(C9) 150 159 388 459 
DWORD 302 303 
PROCEDURE PUBLIC STACK=0O01CH 
LITERALLY °OFFH’ 172 229 240 245 334 387 
PROCEDURE EXTERNAL(22) STACK=O0000H 294 450 463 
WORD IN PROC CCQDLLCONNECT) PARAMETER 143 
LITERALLY °6’ 
WORD IN PROC CCQMRECEIVE) PARAMETER 83 
POINTER IN PROC CSTKY_INCR) PARAMETER 43 
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